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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*® ae 
*® * 
*® ® 
** ® 
*® * 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
j* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
te INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR “ANY. OTHER 
fs COPIES THEREOF MAY NOT GE PROVIDED OR OTHERUISE MADE AVAILABLE TO ANY = 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:@ TRANSFERRED. * 
** ® 
+ THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
if CORPORATION. * 
*® ® 
:® * 
*® ® 
*® a” 
:® ® 
°® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELZABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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SoOooooQooooooQooooooooooooo 
CQOoSGCCOGOOCOCCOOCOOOOOOCOOOOOoOoOo 
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it 

; Facility: rms32 

Abstract: 

: This module performs all the functions leaanaes to implement 
; and process the record lock List (r 


: ; Environment: 
Star processor running starlet exec. 
; Author: E. H. Marison, creation date: 28-SEP-1977 
; Modi tied By: 


v03-014 gEI0042 J E Johnson 21-Jun-1984 
Tweak the instruction stream for a Little 
performance boost. 


V03-013 JWwT0160 Jim 29-F eb-1984 
Remove calls to RMSDEAL EEN. 


COO DOOCOCOCOCOCOSOCOCOCOOSSOSoOOoOoooooo 


V03-012 JWT0141 Jim eague 11-Nov-1983 
Change IFBSV_RUM to Ifa V_ONLY_RU 

v03-011 DASO004 Dayi § jotenes 27-Jun-1983 
Correct typo in V03-01 


WITTE Be BS BS EB EWI WII nonononononononony 2 2 
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v03-010 KPLO008 Peter Lieberwirth 21-Jun-1983 

Set LCKSM_PROTECT if file can be {Logovery unit journaled. 

Set LCKSM_RECOVER if recovery unit is being recovered. These 
flags are used to coordinate failover between the lock manager 


SOSCSCCSCSOSOSOSOSOSOSOSOOOSOOOSOOOSOOSOSOoOSOSoO 
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and the RCP. 


v03-009 KPL0007 Peter Lieberwirth 20-Jun-1983 
Change some references to JNLFLG to JNLFLG2. 


V03-008 JWHO198 Jeffrey 
Restructure RULOCK List 
of FLBs (File lock blocks). 

Add RMS$SAVE_FL to save the file lock on the RULOCK 


. 4H 21-Mar-1983 
sot 


orn 
hat the RLBs hang off 


OOoooooo 
Oooo 


OOWOOCOSCOCoOo 


3 Put in RMSRU_UNLOCK routine to release 
all locks held for the durration of an RU. 


4. RLB$L_OWNER now contains the value of 
RBSL_IDENT for the owning stream, which 
Ss a unique (for the Life of the process) 
identifier for each stream. 


v03-002 KBT10307 Keith B. Thompson 25-Aug-1982 


a a a a et 


60 : 
G2 
eS 
0 65 : 
00 96 3 
$3 of 3 List in a FCB. 
000 69 : v03-007 DAS0003 David Solomon 24-Feb-1983 
4 oy 3 Add timeout on record lock wait capability. 
0900 if : V03-006 JWHO181 Jeffrey W. Horn 03-Feb-1983 
44 t : Add check for IFBS$V_RU_RLK to QUERY. 
9000 75 ; V03-005 JWwHO175 Jeffrey W. Horn 26-Jan-1983 
000 76 ; Fix bad branch destination in RUSCAN when the RLB 
0000 773 is not found. 
0000 78 ; Always make sure IFB$V_NO_G WAIT is clear when exiting 
44 ie 3 RMSQUERY_PROC and RMSQUERY_CCK. 
0000 «81: V03-004 JWHO169 Jeffrey W. Horn 10-Jan-1983 
0000 Hf $ If giving back a Recovery Unit held lock then return 
494 o 3 alternate status of OK_RULK. 
0000 85 : Add RMSQUERY_PROC to search for a lock on the RU List regardless 
BOe8 a6 : of stream and then if not found join QUERY. 
0000 88 : For QUERY, if we had to do an $ENQ, then always deque the 
444 8 3 lock, regardless of RU. 
4 4 : If the bit IFBSV_RU_RLK is set then do not perform SENQs. 
$000 38 : If the bit IRBSV_NO_Q_WAIT is set then do not wait on SENQs 
44 Be : within QUERY. 
0000 (496; V03-003 JwHOOO1 Jeffrey W. Horn 19-Aug-1982 
4 a $ Put in Recovery Unit Lock support: 
0000 99 : Te If stream releases lock in RU hold lock 
000 39 3 in PIOSGL_RULOCK List. 
80 0 : 2. If same steam trys to re-access lock 
00 03 ; released in that RU, give it back after 
44 03 3 conversion if necessary. 
0 Ss 
0 : 
10 ; 
Ht 
18 : 
14; 
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SrSEb=198¢ $0:29:18 EAMSeSRCTRMORECLCKRAR:1 = "2% 
Reorganize psects 
v03-001 ¢DS0001 C Saether 11-Mar-1982 
Save R2 when stalling for a record lock. 
v02-011 KPLO006 Peter Lieberwirth 21-0¢ t-1981 


Add additional get points so that query_lck and unlock 
will return a RNL status in those places where a REA lock 
is held and the caller expects to get away with do ng an 
yesere or delete after a get or find (that only applied a 
REA lock). This is important because several streams can 
hold a REA lock qn & single record, so if any can update 
the record, consistency is lost. 


This wasn't a problem before because REA locks weren't 
really being applied properly (see next paragraph), and REA 
will now be permitted in files opened for write access. 


Fix implementation of REA lock; it should map to PR (protected 
read) not PW (protected write). If both REA and RLK are set, 
REA takes precedence. 


Remove bugcheck on DEQ_S failure, it doesn’t do anything good. 
Fix some commentary. 


v02-010 api sees Peter Lieberwirth 30-Sep-1981 
Always release curbdb on record lock stall. 

V02-009 kpl0004 Peter Lieberwirth 33-Aug-1981 

Make the following changes: 


1. move RLBs to a List off the IRAB from the IFAB 

2. zero CURBDB so GET doesn’t try to deaccess again 
on errors (WAT only) 

3. when i taken, deallocate the sync efn as well 
as se 

4. redesign and fix bugs regarding RRL and REA 

Be peseve RMSUNLOCK_ALT entry point since its no longer 
neede 


v02-008 mcn0006 Maria del C. Nasr 23-Jul-1981 
record id size changes from a byte to a word 
v02-007 kpl0003 Peter Lieberwirth 7-Jul-1981 


Add testpoints to count number of times RMSLOCK and 
RMSQUERY_LCK are called. Also add a testpoint to see 
how many times we do a wait on a record lock conflict. 
(This last depends on user setting the ROP WAT bit.) 


v02-006 kpl0002 Peter Lieberwirth 5-Jan-1981 
Rewrite to use $enq/$deq to lock and unlock records. 
rm$query_lock can now return ok _rrl if ROP function 
RRL is Specified and record is Tocked against readers. 


v02-005 REFORMAT Maria del C. Nasr 24-Jul-1980 
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1 . 
178 : file sharing code enhancements 
158 ; Revision History: 


L F LAVERDURE, 9-o0ct-1978 17:16 
add shared file code 
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~SBTTL DECLARATIONS 


: Include Files: 


Macros: 
Equated Symbols: 


ROP = 


Own Storage: 


pa19be fo:28:15 


RABSL_ROP*8 
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~SBTTL RMSLOCK AND RMSQUERY_LCK 


> 
+ 


RMSLOCK - make entry in the lock List for specified record 
RMSQUERY_LCK = search rlb for specified record and report status 


Calling sequence: 


bsbw rm$lock 
bsbw rm$query_\ck 


Input Parameters: 


rij impure seo address 
ri0 ifab addres 
r9 irab address see please note always irab *** 
r8 rab addre 
ri 1'st and *3* nd word of record's rfa 
r2 3'rd word of record's rfa 
seq f.o. offset (always positive value) 
relative f.o. eo 
index f.o. low byte = record id 


Implied Input: 
rm$lock 
the wat bit in rop ; queue the request ot it can't 
4 grontes immediately) 
the tmo bit in rop af AT is set, wait tor a specific amount 
of time before returning timeout error). 
the rlk bit in rop (ie lock for write, allow readers) 
the rea bit in rop (ie lock for read, allow readers) 
rm$query_lck 
the erl bit in rop (ie read record regardless of lock) 


Output Parameters: 
r3 is destroyed 


r0 a pi rms status code 
rm 
rms$_suc8“xffff record lock entry made 
rms$_ok_waté*xf fff record lock entry was made, but we had 
go wait to get it, caller must reaccess 
uffer 
rms$_ok_alk&*xffff record was area kockes by caller 
rms$_rlke*xfftff record is locked by another 
process-stream 
rms$_dme&*xffff could not get space for new rlb block 
rms$_tmo*xf fff record lock timed out 


rm$query_lck: 
rms$_suce*xf fff record not locked 
rms$_ok “alke*xt ttt record was rey locked by caller 
rms$_ok_rlkO*xffff record is locked by anothe 
process-stream but read is. allowed 


K 10 
RMORECLCK RECORD LOCK LIST (RLB) PROCESSING 16-SEP-1984 00:32: AX/VMS Macro V04-00 Pa 
your 00 RMSLOCK AND RMSQUERY_LCK Br SE-198G forasits ERMS. SRCIRMORECL CK. MAR; 1 * oa 
71 ; rms$_ok_rrle*xffff record is locked by another 
72 process-stream, but RRL overrides lock 
75 ; rms$_rlke*xf fff record is locked by another 
fe : process~stream 
76 ; 
: 7 ; Side Effects: 
: 15 ; If success code rms$_ok_ wat is returned from RMSLOCK, record was 
0 0; successfully locked, but access to the buffer was given up to do 
09 : a stall. The caller must reaccess the buffer. 
0 =: 
000 5 RMSLOCK:: 
i494 $ STSTPT LOCK ; count this call 
OA OOA2 CA ge 4 $008 8 BBC #IFBSV_RUP, IFBSB_JNLFLG2(R10),5$ ; branch if not in RU 
02 3 0 Q00c 89 BSBW RUSCAN ; scan RU Lock List 
5D 5 ce OOF 90 BLBS RO,50$ 3; get cut if one found 
0 oO 012 91 TSTL RO 3 was it an error instead? 
9 15 0014 38 BNEQ 0$ 3 yes, get out. 
0239 «3 Bat8 93 5$ BSBW sc ; scan lock List 
of 50 €9 001 94 BLBC RO, 10$ 3; only success codes are ok_alk and ok_rlk 
50 8039 BF 681 O01C 295 CMP = #<RMSS$_OK_ALK&*XFFFF>,RO; already Locked? 
4C 13 0021 38 BEQL 0$ 3; branch if yes 
0023 9 RMSERR RLK 3 otherwise change it to rlk 
53 D4 0028 98 10S: CLRL R ; if we get here don't want this rlb 
50 81A0 8F 81 OQ02A 99 CMPW #<RMSS_RNLO“XFFFF>,RO ; record not in local lock List? 
3E 1s 002F 00 BNEQ 50$ ; exit if record is locked 
O34F 30 0031 01 BSBW GET_RLB : find an RLB 
38 50—s«éE 43 ; 8 BLBC RO,50$ 3 branch on any error 
05 68 2c €1 $03) 04 BBC #RABSV_LV2+ROP, (RB) ,15$ F propigate LV2 bit to RLB 
0058 05 SSB #RLBSVLV2,RLB$8_FLAGS(R3) 
05 68 2 E1 $020 07 15$: BBC #RABSV_REA+ROP,(R8),20$ ; is it a REA type lock? branch if no 
E3 0044 08 BBCS RLBSV - ; map REA to protected read 
09 0B A a8 09 RLB$B_FLAGS(R3) ,30$ 
05 68 33 £1 0049 311 208: BBC #RABSV_RLK+ROP,(R8),30$ ; is it a RLK type lock? branch if no 
0 E3 0040 \¢ BBCS #RLBSV_Pu,- 3 map RLK to protected write 
00 0B A a3 13 RLB$B_FLAGS(R3) ,30$ ; 
5 15 3+ 
05 16 3; Save record lock wait/timeout information in RLB. If the ROP WAT 
03 18 ; bit is not set, don't even look at the TMO bit. 
5 19 ° 
1368 31 #4€1 005 20 30S: BBC #RABSV_WAT+ROP,(R8),40$ ; Should we wait on record lock? 
0 E3 5 1 BBCS #RLBSV_WAIT,- 3; Yes, propagate bit to RLB. 
00 08 A 38 : RLBSB_FLAGS(R3) ,35$ : 
OA 68 39 1 2 4 35$: BBC #RABSV_TMO+ROP, (RB) .40$ ; Is a timeout specified? 
, 5F 5 BBCS #RLBSV_TMO,- ; Propagate bit to RLB. 
00 0B A 61 6 RLB$B_FLAGS(R3) , 37S 
1F A 90 64 37$: MOVB RABSB_TMO(R8) ,- ; Store timeout value in RLB. 
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OA A3 7 § RLBSB_TMO(R3) 
OBA 4 3 0 40S: BSBW DO_ENQ ; lock the record 
OA6 1 wW RRC ; go check for read-regardless 
O6F 2 50$: RSB ; return all status to caller 
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p++ 
; RMSQUERY_LCK 
If the record is not locked locally, see if its locked by 
another process by request 08 a lock on it. If the Lock 

is granted, the record may be read. Also, immediately unlock 
the record if lock granted, so extraneous junk doesn't fill 
up the lock database. 


RMSQUERY_HARD 


Same as QUERY_LCK, but map OK_ALK when lock is REA type to RNL so 

any writers of the file holding a REA lock on the record can't get 

away with updating or deleting it. 
| 
| 


Algorithmn for query_lock 


first try PR - if this succeeds, it means there 
was no lock, and its OK to read. 


if PR fails, it means either an EX or PW Lock is 
held on the record, so try CR, with WAIT if the 
user said to. If CR succeeds, then the lock must 
have been PW, so its OK to read. 


Also, read-regardless of lock (RRL) is handled here. If all 
indications are that the record is locked, then if RRL is 
specified, access to that record is permitted. 

RMSQUERY_PROC 


Scan RU Lock List for lock regardless of stream, if found 
return OK_RULK otherwise join RMSQUERY_LCK code. 


DS DS DS OS DS OS SDS TTT Ee Be BS BS BB EE EWA 
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7 
71 RMSQUERY_HARD:: 
7 STSTPT QUERY_LCK ; count this call 
01D9 +30 7 BSBW $ 3; scan for record 
50 8039 8F 861 7 CMPW #<RMS$_OK_ALK&“XFFFF>,RO; is record locked by caller? 
OA 12 7 BNEQ 10$ ; if NEQ no 
03 €1 7 BBC #RLBS$V_PR,- 3 yes, but is it only REA? 
05 0B A3 7 RLBSB_FLAGS(R3) ,10$ : branch if not REA 
7 RMSERR RNL ; map OK_ALK to RNL if its locked REA 
05 79 10$: RSB 3; return to caller 
: RMSQUERY_PROC:: 
STSTPT QUERY_LCK 3 count this call 
028 30 9 BSBW 3 scan RU List for Lock 
OA 5 E9 9 BLBC RO, RMSQUERY_LCK 3: continue with Query lock if not there 
9 RMSSUC 3; set alternate success 
9 CSB #IRBSV_NO_Q_WAIT,(R9)  ; make sure this bit is clear 
05 ry RSB 
A 89 RMSQUERY LCK:: ' 
A 9 STSTPT QUERY_LCK 3 count this call 
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1A8 8630 A7 91 BSBW SCAN 3; scan for record 
50 Bia 8F BI AA 3 CMPW #<RMSS_RNLE“*XFFFF>,RO ; if RNL, record may be locked by 
AF 9 3 another process 
89 1 AF 94 BNEQ 10$ ; return status of scan 
E 61 95 BBS #1FBSV_RU_RLK,=- 3 get out if ‘fake’ record locking 
1A 00A2 CA 83 %6 1FBSB_INLFLG2(R10) ,10$ 
288 38 B 9 BSBW GET _RCB : find an RLB to use 
14 BA 98 BLBC RO, 3; pass along possible DME error 
0 0 tor 99 MOVB #RLBSM_PR,- ; 
0B A F 400 RLBSB_FLAGS(R3) : ask only to read 
51 odd O0C 401 PUSHL R 3 save RFA across enq 
1 iS 5 4 § BSBB DO_ENQ ; go try to lock the record 
1 8ED C 4 POPL : restore RFA 
0B 50 5 0C8 404 BLBC RO,20$ : if error, go try CR 
0326 0 00cB 405 BSBW DEQUE_QUERY 3 got the lock, so ave it up now 
OOCE £36 RMSSUC : permission to read record 
Rope 407 108: CSB #IRBSV_NO_Q_WAIT,(R9) ; make sure this bit is clear 
05 it rt RSB 3 return to caller 
02E3 30 0006 410 208: BSBwW SETOWNRFA 3; reset eynecshtp and rfa 
0009 §=411 3 try again for loc’ 
0¢ 90 00D9 216 MOVB #RLBSM_CR,- s 
0B A 00DB = 41 RLBSB_FLAGS(R3) ; try for concurrent read 
QOODD 414 
O0DD 415 ;+ 
OODD 416 ; Save record lock wait/timeout information in RLB. If the ROP WAT 
O0DD 417; bit is not set, don't even look at the TMO bit. 
$8 ae 
1769 38 €4& OODD 420 30S: BBSC #IRBSV_NO_Q_WAIT,(R9) ,40$ ; branch if no queuing 
1368 31 €1 00€E1 gt BBC #RABSV_WAT+ROP, (R8),40$ ; is queuing disabled 
OOES 4 ; SSB #RLBSV_WAIT,- 
434 ? ? RLB$B_FLAGS(R3) 
OA 68 39 +€1 QOEA 425 BBC #RABSV_TMO+ROP,(R8B),40$ ; Is a timeout specified? 
OOEE 426 SSB #RLBSV_TMO,- ; Propagate bit to RLB. 
QOEE 427 RLBS$B_FLAGS(R3) 
1F AB 90 OOF 428 MOVB RAB$B_TMO(R8) ,- ; Store timeout value in RLB. 
OA AS poe e : 4 RLBS$B_TMO(R3) 
48 10 OOF8 431 40$: BSBB DO_ENQ 3 ge try to lock the record 
15 50 F9 QOFA 4 ¢ BLBC RO,50$ : branch on record lock error 
5 33 OOFD 4 PUSHL 3 save status of lock operation 
02F 3 OFF 434 BSBW DEQUE _QUERY 3; go unlock record we just locked 
50 8ED Se 435 POPL 3; restore lock status 
50 8061 8F Bi 01 $38 CMPW #<RMSS_OK_WAT&*XFFFF>,RO; did we wait for the record? 
05 13 O10A 43 BEQL 5$ ; if eql we waited for the lock 
10¢ $38 RMSSUC OK_RLK ; record locked, but ok to read 
05 ef rth 45$ RSB 3; return to caller 
02BE 30 113 $3) 50$: BSBW RESET_RLB : free the RLB 
11 108 ; 
Vi rey ; read regardless of lock: 
115 446 ; If _the record is locked, then if the user spec t1ted RRL 
0115 447 ; we'll return the record with the code OK_RRL. 
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Foon 500 RMS$LOCK AND RMSQUERY CCK gE 1382 99:33:98 URNS SRCIRMORECL CK MAR: 1 ’ (4) 
11 448 ; 
118 108 RRL: 3 
50 82AA BF B1 11 450 CMPW #<RMS$_RLKE“*XFFFFD>,RO ; is the error RLK? 
12 Q11A 451 BNEQ ; if neq no, don't try read regardless 
05 68 1 Bt 126 BC #RABSV_RRL+ROP,(R8B),10$ ; has rrl been specified 
B15 45 RMSSUC OK_RRL ; yes 
05 0125 454 10$: RSB 3 return to caller 
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x -SBTTL DO_ENQ 
DO_ENQ 


- build the enq on the stack, perform it, and handle any errors 


Calling Sequence: 
bsbb do_enq 


Input Parameters 
r10 ifab address 
irab address 


r 

r8 rab/fab address (not needed by this routine, but 
must preserve this register) 

r3 rlb address 


Output Parameters: 


Side Effects: 


If success, record is locked. If status is OK_WAT, bucket has been 
deaccessed, and caller must reaccess. 


Fy ot at ot at at at ee Ure rrrMrrwrrueeeeaeeeeeeS 


] 
| 
| 
| 
r0 status of eng 
rlb fields filled in: lock_id, lksb 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
012 -- 
012 
0 § DO_ENQ: : perform the sys$enq 
0 RMSSUC 3 assume success for the next check 
OOA2 CA 03 €1 O12 BBC #1FBSV_RU_RLK, IFB$B_JNLFLG2(R10) ,- 
06 012 ;_only do eng if sharing file 
0 é SSB WRLBSV_FAKE,RLB$B_FLAGS(R3) ; set as ‘fake’ RLB 
05 8 ; RSB 3; return to caller 
33. E1 «2013 92 5$: BBC #1FBSV_NORECLK,- : only do eng if record locking 
01 6A 0 ; 9 (R10), TO0$ 3 
05 0 494 RSB 3; return to caller 
OI3A. 496 
0 497 ; Build RESNAM and descriptor for it on stack. Warning, if any parameters to 
0 498 ; SYSSENQ are added or removed prior to RESNAM descriptor address, offset to 
8 $33 ; RESNAM descriptor will change... 
0 01 ° 
7. ~w .. 30¢ 10$: SUBL2 #16,SP ; make room for record RESAM and 
50 3; descriptor on stack 
6— 08 00 ape MOVL #8, (SP) 3; length of RESNAM in descriptor 
4 5 3; RFA is only 6, but $Senq optimizes 8 
04 AE 08 | E 4 $ MOVAL  8(SP),4(SP) : address of RESNAM in descriptor 
08 AE O6A C 4 MOVZWL RLBSW_RFA4(R3),8(SP) 3 second Longword of RESNAM is 5rd 
4 08 ; word of 
OC AE OC AZ 00 4 09 3 
4 10 ; longword of RFA 
4 11 34+ 
4 12 


R 
MOVL RLBSL_RFAO(R3),12(SP) ; first longword of RESNAM is Ist 
| 
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yoe~ 000 DO_EN B4 93:35:98 tines 


Q -SEP-19 RMS.SRCIJRMORECLCK.MAR; 1 
ie F ; Perform the sys$enq function, building the parameter List on the stack. 
12 1? ; First, verify assumptions about order of arguments on stack 
i oe 
14F i§ ASSUME ENQS_EFN EQ <ENQ$_LKMODE = 4> 
14F 0 ASSUME ENQ$_LKMODE EQ <ENQ$_LKSB = 4> 
14F i] ASSUME ENQ$_LKSB EQ <ENQ$_FLAGS = 4> 
bbe ¢ ASSUME ENQ$_FLAGS EQ <ENQ$_RESNAM = 4> 
14F ASSUME ENQS"RESNAM EQ <ENQS"PARID = 4> 
O14F 4 ASSUME ENQS-PARID EQ <ENQ$_ASTADR = 4> 
14F 5 ASSUME ENQS$_ASTADR EQ <ENQ$_ASTPRM = 4> 
014F 6 ASSUME ENQS-ASTPRM EQ <ENQS-BLKAST = 4> 
014F ASSUME ENQS$-BLKAST | £0 <ENQ$"ACMODE - 4> 
pee 2 3 ASSUME ENQ$_ACMODE EQ <ENQ$_PROT = 4> 
nee 239 ASSUME ENQ$_NARGS EQ 11 
7E 7C O14F 236 CLRO -(SP) ; let the protection and mode default 
7E D4 0151 53 CLRL -(SP) ; no blocking ast for records 
59 DD 0153 534 PUSHL R9 3 astprm = irab 
OOOO'CF DF 0155 535 PUSHAL W“RMSSTALLAST ; ast address 
50 78 AA DO 6159 536 MOVL FBSL_SFSB_PTR(R10),RO ; get SFSB address 
3A 613) «0150 a3 BEQL 3; error if there is none 
30 AO DD O1SF 538 PUSHL SFSBS$L_LOCK_ID(RO) ; parent_id is SFSB lock id 
18 AE OF He: 539 PUSHAL SP) 3; _resnam descriptor address 
1C DD 016 540 PUSHL #LCKSM_SYNCSTS!LCKSM_NOQUEUE!LCKSM_SYSTEM 
0167 541 : don't take ast if enq completes fast 
0167 2e§ ; don't wait unless user tells us to 
0167 54 ; lock is not to be qualified by group 
03 93 0167 544 BITB #<IFBSM_RU! IFBSM_ONLY_RU>,=- 3; recovery unit journaled? 
OOAO CA 0169 545 IFBSB_JALFLG(R10) : ; 
064 13 O16C 546 BEQL 17$ ; if EQL not marked for RU journaling 
LCKSV_ . § tec S protecte or failover 
818 rth $SB #LCKSV_PROTECT, (SP) lock i d f fai 
He 2? ASSUME IFBS$V_RU_RECVR EQ 0 
04 OOA1 CA £9 O17 551 17$: BLBC IFBSB_RECVRFLGS(R10),18$; RU recovery in progress on this file? 
bie 226 SSB #LCKSO_RECOVER, (SP) : lock is interesting during failover 
oie 22¢ ASSUME RLBSV_WAIT EQ 0 
03 0B AS’ =6E9 «=—0178 2$ 18$: BLBC RLBS$B_FLAGS(R3) ,20$ ; branch if not ok to wait 
6— 04 CA Ve rH BICL2 #LCKSA_NOQUEUE , (SP) 3 wart tor lock if not immediately 
; available 
E1 O12 559 208: BBC #RLBS$V_CONV,- 
03 0B A3 184 560 RLB$B_FLAGS(R3) ,25$ ; branch if not converting a lock 
6E 0¢ C8 0187 29] BISL2 #LCKSA_CONVERT, (SP) 3; set lock convert 
4A DF O18A $6 25$: PUSHAL RLBSL CKSB(R3) ; address of lock status block 
05 oD 0186 56 PUSHL #LCKSR_EXMODE 3 assume exclusive lock for now 
0g E1 O18F 564 BB #RLBSV_ PW,- 3 : 
08 0B A 191 565 RLBSB FLAGS (R3) , 308 i is it protected write? 
6E 04 00 194 66 MOVL ack R_PWMODE, (SP) ; make Lkmode protected write 
i: 197 6 BRB 50$ ; go allocate efn 
0345 31 0199 68 gre: BRW ERRENQ ; branch aid 
03 €1 019C¢ 69 50$: BBC #RLBSV_PR,- : 


song 


00000000 ' 9F 
5E 


0689 oF 
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90$: BBC #RLBSV_T 


CSOOOSOSOCOCOCOCOOCOOCOCOOOCOCOSOOOOCOOOOOCO OOOO COOCOOOCOOOOOOOOOOoOoO GS 

VSVVV VSS S999 FWD OF WS MD WDA OOAAOAOWW MIM D Co — MMO rn 
POP IMPDMNID 2 9 9 9 | | SQOOOOOOOOO OC OOVOOO OOO OWWOWOoownwdn NNN 
AINE UDR OOD NAME WIN 9 OO NAME WIN — O OD NAME WWI O OD NAME WIN O OODNIOAUE WIN O 


DOQQ DQPLDPDPE DPD DA DPA PAP PPP DPA DP DAD De MPa 


—MOONOOWWO 


—ODooooooomn 
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mS TARY SES et Mm A ek he i . 
RLB$B_FLAGS(R3) ,40$ ; is it protected read? 
MOVL  § #LCKSR_PRMODE, (SP) ; make Lkmode protected read 
408: one $ ; go allocate efn 


sRLBSV CR,- 
RLB$B_FLAGS(R3) ,50$ 
MOVL  #LCKSR_CRMODE, ($P) 
50$:  BSBW  RMSSETEFN 


CALL #11 ,,Q#SYSSENQ 
#16,SP 


; is it concurrent read? 
; make Lkmode concurrent read 
; allocate a synchronous event flag 


; do the ong 
op RESNAM and its descriptor 


L RO,110$ ranch on error 
CMPW RO,#SS$_SYNCH ; synchronous completion? 
BNEQ 908 : no, go stall 
SSETEF_S IRBSB_EFN(R9) ; set event flag we didn't stall for 
RMSSUC ; indicate successful lock 
RSB ; and return 


> 
J 
\~J 
"ge 
TC Terererererererererererererererere) 


80$: BRW ERRENQ ; branch aid 


3¢ 
3; If timeout on record lock specified, set up timer. 


MO,- 3; If timeout not specified, skip this. 
RLB$B_FLAGS(R3) ,95$ 

BSBW RMSSET_LOCK_TMO : Set timer for lock. 

RO, 95$ 3; If successful, continue. 

; Save SSETIMR error status 

$DEQ_S LKID=RLBSL_LOCK_ID(R3) ; Else SSETIMR failed; cancel SENQ. 

P R ; Restore error status 

RMSERR TMR, Ri 3; Unexpected SSETIMR error. 

GRB 125$ ; Go map error and exit. 


95$: PUSHR #*M<R2,R3,R4> ; save registers 


s+ 

Release curbdb because we don't want the bucket locked while we are waiting 
CposstOly for a long time) for the record. No one can even get in to unlock 
the record if we have the bucket locked. 


The extremely sipor rene assumption “4 made here that no STALL will be done in 
RMSRELEASF. No bucket will be written for example. This call should only 
deaccess the buffer. If this assumption is _ invalid, then all SENQ 
synchronization is blown because there aren't enough EFNs to go around. 


Se Se Sete Ge Se Se Ge tee 


MOVL IRBSL_CURBDB(R9) ,R4 
BEQL NOBDB 


CLRL —‘IRBSL_CURBDB(R9) 
STSTPT REC_WAT 


point to current bdb 
error if there is none 


zero CURBDB so error pats don't try 
to release it again : 
count number of times WAT waits 


CLRL R3 no flags for rm$release 
BSBW RMSRELEASE Coaccess the buffer - no 10 
100$ BSBW RMSSTALL await completion of enqueue 
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BA 


ES 


AAO 


120$: ENQ,R1 
\¢3e! BSBW RMSMAPERR 
130$: 


EE EWI 


DD SNF MS WDOWING BW PADD OA AAA AAAAAAA SE 


POPRSPIPINIPYPIPPYPINYNINYININPIPPIPINIPIPYINPIPIPIPIPIPINPINPININPY 


PVP PV Be Be BS BE EE EIN NII mnonr 


PARA AAAAAAAAAA AAA AA AA AAA AA AO 
NOME WN 2 OODONAUE WN O OONOUE WN O0OOn 


0 
0 
i] 
i] 
0 
0 
i] 
0 
i] 
0 
0 


SEP-1984 :32: AX/VMS M v04-00 P 
"Bree pt]obe $6:35:1 LAMS CRCIAMORECLCK MaR:1 ae 
POPR #*M<R2,R3,R4> 3 restore registers 


s¢ 
; If a timer was still outstanding, cancel the request. 


Note: if the pune fires efter the BBCC instruction, but peters. he | SCANTIM 
the tiner AST routine witl simply ex t since the RLA@SV_TIMER_INPROG flag will 
be clear. If the timer fires before the BBCC ccrustiaa, the Spee will fail 
with $35. IVLOCK ID. which is expected. 


Continue if no $SETIMR outstanding. 


BBCC #RLBSV_TIMER_INPRO 
RL LT 


; note subroutine call, not branch! 
: clear rlb, since we didn't get a lock 
; go return 


BSBW RESET_RLB 


_FLAGS2TR3) 
SCANTIM_S - ; Cancel timer request. 
REQIOT=R3 
105$: MOVZWL RLBSW_STATUS(R3),RO 3 copy enq status 
L RO,110$ ; branch on any error 
— OK _WAT ; success, but we waited 
110$: CMPL RO, #SS$_ABORT ; Was the lock request cancelled? 
NEQ 126s 3; No; go map error. 
RMSERR TMO : Primary status is timeout. 
RB 130$ ; Join exit code. 
RMSERR ; default te ENQ for RMSMAPERR 


NOBDB: RMSPBUG FTL$_NOCURBDB ; there should be a current BDB 
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$38 -SBTTL SCAN 
681 p++ 
6 ¢ ; SCAN 
28 $ - scan the rlb for the requested record (rfa <>0) 
64 ; - scan for first record locked by caller if rfa = 0 
665 ; - report staus of scan 
89 | 
668 : Calling sequence: 
5 sf 3 here bsbb scan 
71: 
; ore ; Input Parameters: 
520 674: ri1 impure area address 
5 675 ; r10 ifab address 
5 o78 $ r9 irab address *** please note always irab *** 
3 ort 3 r8 rab/fab address 
5 679 : rfa<>0: scan for record 
5 680 ; r 1'st and 2'nd word of record's rfa 
5 681 ; r2 3'rd word of record's rfa 
2 one ; seq f.o. offset (always positive value) 
683 ; relative f.o. ng 0 
é one $ index f.o. low byte = record id 
5 686 : rfa=0: scan for record locked by caller 
5 687 ; ri is zeroed (0) 
; o88 3 r2 don't care 
: $39 : Output Parameters: 
5 $36 : r3 is rlb found on scan or 0 if none found in scan 
: o87 : r0 internal rms status code: 
; $32 : rms$_ok_alk&*xffff record was already locked by caller 
3 697 : rms$_rnl$*xffff record not locked by caller 
5 699 > Side Effects: 
5 0; 
5 4 1 :-- 
85 708 : 
C 5 704 ADDL3 #IRBSL_RLB_LNK,R9,R3 3; get rlb header address into r3 
i) 56 6705 TSTL 3 Owner scan 
1 iH f $ BEQL SCAN_OWNER 3; branch if yes 
A 708; 
- 703 : Scan for record match. 
A 711 SCANLOOP: 
A at ASSUME ivi ‘' EQ 0 
D a. MOVL (R35) ,R : get next rlb in List 
1 Sp 714 BEQL § NOTFOUND : Branch if at end of List 
D a: ee CMPL RLBSL_RFAO(R3) ,R1 3 compare vbn/rec#/start vbn 


SS 


am 
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Ss tt i rg BNEQ SCANLOOP 3; branch if no match 
18 ; 
3 at 3: Scans for sequential, relative, and index sequential file organization. 
? f y : Note: For relative file organization only need to match record number. 
7 a 
é f CASE TYPE=B, SRC=I1FB$B_ORGCASE (R10) ,DISPLIST=<SCANSEQ,FOUND,SCANIDX> 
7 725 ; 
4 § ; Scan for sequential file organization. 
70 7 8 SCANSEQ: 
52 06 A3 861 7 7 CMPW RLBSW_RFA4(R3) ,R2 3 compare offset 
8 13 74 730 BEQL FOUND : branch if match 
11 0 r BRB SCANLOOP 3; otherwise, loop back for next 
7 rae 3 
8 q 4 : : Scan for indexed file organization. 
0 78 «7 $ SCANIDX: 
52 06 A3 81 7 7 CMP RLBS$W_ID(R3),R2 3: compare id 
as we 8 As 4 : BNEQ SCANLOOP : branch if no match 
O27—E 740; . 
8 ne ae :; Match has been found - report status. 
O27E 2g FOUND : ref tag 
0 43 744 RMSSUC OK_ALK 3; OK_ALK if caller already owns lock 
05 8 $ oe? RSB ; and return 
0284 rs : 
8 r re 3; No match found. 
0 4 750 NOTFOUND: 
4 751 RMSERR RNL : set status and return 
05 i P38 RSB 3 
A 754; 
n P33 ; Scan rlb List for owner match. 
BA a9 SCAN_OWNER: 
A £38 ASSUME WL gst ‘- EQ 0 ; 
53 63 OD A? oe MOVL (R3),R 3 get next rlb in List 
s. 3 D 760 BEQL NOTFOUND ; branch if at end of List 
10 a3. oD F 761 TSTL RLBSL_OWNER(R3) :; is RLB in use? 
f6 «1 2 roe BEQL SCAN_OWNER : branch if not 
94 76 RMSSUC OK_A 3; set status and return 
05 99 764 RSB 


iene at ete a 


111 
RMORECLCK RECORD LOCK LIST (RLB) PROCESSING 16-SEP-1984 00:32:06 VAX/VMS Macro v04-00 Page 1 
Foe bob RUSCAN Breen OEe 90:56:98 AKL ves Tee te RAR: 1 oe 18, 


rey »SBTTL RUSCAN 
rt: p++ 
6 ; RUSCAN | 
77 3 Look for RLB in RU Lock List 
22 ; 
og ; Calling sequence: 
774 ; bsbb ruscan 
He 
ry : Input Parameters: 
8 : ri impure area address 
780 ; ri0 ifab address 
781 ; r9 irab address *** please note always irab *** 
7 ¢ $ r8 rab/fab — 
783 ; ri 1'st and 2'nd word of record's rfa 
784 ; r2 3'rd word of record's rfa 
785 ; seq f.o. offset (always positive value) 
7 § 3 relative f.o. omy 
f 5 : ndex f.o. low byte = record id 
434 : Output Parameters: 
ad : r3 is rlb found on scan 
793 : RMSSUC = RLB found 
794 ; 0 - RLB not found 
2 3 any error code - Returned from SENQ service. 
797 : Side Effects: 
8 
90 ‘ LE 
0244 33 ERRS: BRwW ERRENQ FOL 
88 FTl 
04 RUSCAN: FTl 
06 0S PUSHR #*M<R1,R2> ; save R1,R2 ; GE! 
008D 0 BSBW 18 SCAN ; find FLB for this file IFt 
7F 50 0 BLBC RO, TICS : error if none IFE 
50 08 CLRL 3; assume failure Ft 
52. 04 Al 09 MOVAL FLBSL_RLB_LNK(R1),R2 ; get first RLB irl 
52 2 11 10$: MOVL (R2),R2 : next RLB into R2 Fi 
4 \¢ BEQL 1 3: error if none IF 
34 AD 10 A2 1 CMPL RLBSL_OWNER(R2) , IRBSL_IDENT(R9) : locked by this stream? Fl 
F4 14 BNEQ : branch if not IFi 
6E OC A2 15 CMPL $1 20. AF AOCRE? (87) : compare VBN/REC#/start vba IF | 
16 BNEQ 10$ : branch if no match +4 
18 ; IRI 
15 : Scans for sequential, relative, and index sequential file organization. IRI 
31 ; Note: For relative fiel organization only need to match record number. im 
3; IR 
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a ; CASE TYPE=B, SRC=IFBSB_ORGCASE (R10) ,DISPLIST=<30$,50$,40$> 
¢ $3 
: § : Scan for sequental file organization. 
¢ ° 
04 AE 06 A2 BI C j 30$: CMPW Fi, FOU AA CRE? AED 3 compare offset 
D \¢ CD 0 BNEQ 10$ branch if no match 
0 1 cf BRB 50$ z match found 
D1 3 
4 ¢ : Scan for indexed file organization 
D1 F 
04 AE O6A 61 D1 $ 40$: CMPW Fi, 200. FOcRe? ASE? 3 compare id 
D 12 D6 8 BNEQ 10$ : branch if no match 
SF 
6 D8 44 3 RLB found, remove from RU RLB List, insert in IRB RLB List 
0 8 bc$ » 
00A8 30 8 D8 44 50$: BSBW GET_RLB ; get a RLB 
3 by DB 45 PUSHR #*M2R1,R2,R3,R4,R5> 3 Save registers 
04 a3 04 A2_ 1 8 0 Dp 46 MOVC3 #RLBSC Bui’, 4(R2) ,4(R3) > copy saved RLB 
04 AE B 02E 47 MOVL 4(SP),R : get saved RLB address 
oF 0 O2E7 848 BSBW ; clear it out 
—E BA OQ2EA rH POPR #*M<RT R2-R3 RG R5> 3 restore registers 
0B A3 sf CA O2EC 50 BICL #<RLBSM WAIT! RLBSM LY E> -MLBSO FLAGS (ES? 3; clear WAIT, LV 
05 68 C €1 O2FO 851 BBC #RABSV_CV2+ROP, (RB) ,60$ 3 branch if no LV2 now 
0 Fé BS SSB #RLBSV"LV2,RLB$B_FLAGS(R3) t set LV2 
0 re 2¢ : Find out if we have the lock in the right mode 
Fo B56 
05 68 $$ E1 O2F9 4 60$: BBC #RABSV_REA+ROP, (RB) ,70$ : branch if not REA Lock 
OE OB AS (OO E3 O2FD 38 BBCS #RLBSV~PR,RLBSB_FLAGS(R3) ,90$ ; branch if not already PR 
05 68 +s ee a 6 $5 60 70$: BBC #RABSV_RLK+ROP, (RB) ,80$ : branch if not RLK lock 
05 0B AS «(02 «CE3:«0306~=—s B61 BBCS  #RLBS$V~PW,RLBSB_FLAGS(R3) ,90$ : branch if not alread PW 
08 6 80$: RMSSUC 3; set success 
14 #11 3 o7 BRB 110$ ; lock in correct mode, get 
1 65 ; 
: $6 : We have to change the mode of the lock 
1 68 * 
05 68 %31 «€1 1 8 90$ BBC #RABSV_WAT+ROP, (RB) ,100$ : branch if not wait 
14 0 SSB #RLBSV-WAIT .RLBSB_FLAGS(R3) > set wait 
19 71 1008 $SB #RLBSV_ CONV, RLBSB_FLAGS(R5) 3; set convert 
FEOS 3 1€ % BSBW DO_ENQ ; go do E 
FDF1 l a BSBW RrC 3 set codes 
96 BA 4 75 110$:  POPR #*A<R1,R2> : restore R1,R2 
05 E9 6 1 BLBC RO, 1208 3 get out on error 
: 4 RMSSUC OK_RULK : alternate success code 
05 E 8 120$:  RSB 


—— ——----— -—_ —_, rc 
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“SEP=1 RMS SRCIRM ORECLCK. MAR ; 1 (8) 
$f ¢ aa -SBTTL FLB_SCAN 
FLB_SCAN 


F 
: : Search for an FLB which matches the current IFB address 
F e 
0 04 f emcee RO fail 
3; assume failure 
51 00000000"3 DE é ; MOVAL a@#PIOSGL_RULOCK,R1 ; get FLB List 
51 1 00 91 10$ MOVL snl). R1 ; get moat FLB 
:'?.3 3 BEQL ate ; get out if none 
OC Al A 01 D CMPL R10,FLBSL_IFB_PTR(R1) 3; see 5 this IFB 
F 1 4 94 BNEQ 10$ : branch if not 
10 Al OD 4 95 TSTL fLest. LOCK_ID(R1) 3; saved file lock here? 
, i 4 38 BNEQ 10$ ; skip it if so. 
‘8 44 RMSSUC 
05 0348 899 20S: RSB 


[eR 
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-SBTTL PRSCAN 


++ 
; PRSCAN 
; Look for RLB in RU lock List, disregarding stream, not returning lock 


OOOoocoo 


Calling sequence: 
bsbb prscan 


Input Parameters: 


rii impure area address 
r10 ifab address 
r9 irab address *** please note always irab *** 
r8 rab/fab address 
ri 1'st and 2'nd word of record's rfa 
r2 3'rd word of record's rfa 
seq f.o. offset (always positive value) 
relative f.o. always 0 
index f.o. low byte = record id 


Output Parameters: 


r0 
RMSSUC = RLB found 
0 - RLB not found 


Side Effects: 


PRSCAN: PUSHR #°M<R2> 


PDAS BB BS BE BBP PPE PPP PPP PPP PPP PPP LOPE ESE 


VIWFRTAAARAHEHSLKK KS LNIM OE OO NOMA AMAOOHAOHOOAOAAAAHMOAAMAOAAOAOOAAAOAAAAAQOOO 


NAINA INIA AAAI AINA AIAN NINN WIAA AIAN AAAI AI 


FUSUSUSISISIS B® BB EE BE BENIN NII NII II POPIPONPPONINUNYIDD 2 OO OO OS "8 
NAUSEA SO ODO NAUE WIN SO OD NAUES WIN OS OO NAMES WN 0 ODNAU EW OO ONO Wh 


WDODODODODODOOOWCO OCODOOOODOODOODODOOODOOOOODOODOODOOOOODODODOOOOOOOOOOOOOOOO 


CGOOOOCOOSOSOOOCOCOCOCOOOCOOCOOOCOOOOSOOCOOCOOOOOOCOoOo Oo 


04 68 3 save R2 
DF 10 BB FLB_SCAN 3; get FLB address 
20 50 «EY BLBC R 3; get out if none 
52 04 Al OE MOVAL FLBSL_RLB_LNK(R1),R2 : get pointer to RLBs 
50 D4 CLRL RO ; assume failure 
52 6 09 10$: MOVL (R2) ,R2 : next RLB into R2 
2 1 BEQL 60$ ; get out if none 
51 OCA D1 CMPL RLBSL_RFAO(R2) ,R1 ; Compare VBN/REC#/start vbn 
F5—s «12 BNEQ 10$ : branch if no match 
6 : 
6 ; Scans for sequential, relative, and index sequential file organization. 
? : Note: for relative file organization only need to match record number. 
6 e 
? CASE TYPE=B, SRC=IFB$B_ORGCASE (R10) ,DISPLIST=<30$,50$,40$> 
6 3 
; Scan for sequential file organization 
6 oe 
6— 06 A2~ 861 : 30$: CMPW 1 BO 7 BALES C92 3; compare offset 
4 12 BNEQ 10$ : branch if no match 
» 7 5 BRB 50$ 3; match found 


M11 
RMORECLCK RECORD LOCK LIST (RLB) PROCESSING 16-SEP=1 Q: AX/VMS Macro V04-00 Pa 2 
vousb00 PRSCAN $73 SEP=19 1984 98: 33: 98 ERMS. SRCIRMORECLCK.MAR; 1 st 5) 


tf , ; Scan for indexed file organization 


77 
77 
6€ 06 A2 81 77 368 40$: CMPW BL BS 1DCR2) (SP) ; compare id 
pes s*12 78 BNEQ 10$ ; branch if no match 
037D 3e6 

7D 306 
43 $ 50$: RMSSUC 

04 ##BA 9 60S: POPR #*M<R2> 

BS 0385 990 RB 
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RMORECLCK RECORD LOCK LIST (RLB) PROCESSING 16-SEP-1984 00:32: AX/VMS Macro V04-00 Page 
v04- GET_RLB AND RESET_RLB green 9 4 90:33:98 FRMS SRCIRMORECLCK.MAR: 1 . d 
378 oe -SBTTL GET_RLB AND RESET_RLB 
74 ; GET_RLB - find an available rlb, if none available allocate one 
ie ; RESET_RLB - clear the RLB and indicate its free 
4 ; Calling Sequence: 
4 3 bsbb get_rilb 
43 : bsbb reset _rlb 
0 1 : Input Parameters: 
0 : § ; 
8 3 3 get rlb: 
984 ; ri ifab address 
0 tH 3 r9 irab address 
0 986 ; ri i'st and 2'nd word of record's rfa 
B35 987 ; r2 3'rd word of record's rfa 
038 988 ; seq f.o. offset (always positive value) 
bee 989 ;: relative f.o. eiuays 0 
O38 444 3 index f.o. low byte = record id 
0383 992 ; Output Parameters: 
0383 993; 
0383 994; get_rlb: 
bees 444 3 r3 points to RLB if success, else zero 
tht 399 : rO internal RMS status code: 
0383 998; DME - couldn't allocate an RLB 
0383 999 ; SUC - r3 points to RLB 
0383 1000 ; 
0383 1001 ; Side Effects: 
0383 IDRe s . 
0383 1003 ; If success, RLB owner and RFA fields initialized. 
0383 1004 ;-- 
0383 1005 
0383 1006 ; 
0383 1007 ; Record is not in local list of locked records, so scan the rlb list for 
0383 1008 ; an available rlb. 
0383 1009 ; 
0383 1010 
0383 1011 GET_RLB: : find an rlb 
53 59 38 C1 0383 I3i¢ ADOL3) #IRBS$L_RLB_LNK,R9I,R3 z get rlb header address 
tet 101 ASSUME RLBSL ‘us Ea 0 : 
53 63 0 387 1014 108: MOVL (R3),R : get next rlb in List 
Ss ; A 1312 BEQL 20$ : if eql end of List, go allocate one 
10 AS sO Cas 1 TSTL S00, SER ERD? ; is rlb available 
F6 12 OS8F 101 BNEQ 10$ 3; loop back for next if not 
29. =i ; ea 18 BRB 30$ 3: success, r3 points to rlb 
Bist 18 
, 10 1; No available rlb so we must allocate a new one. 
16 Be (toe Q 208: PUSHR #*M<R1,R2,R4> 3; save registers 
51 SA OD 95 1024 MOVL R10 3 set addr in page = ifab 
52. 07. 9A 0398 1025 MOVZBL #RLBSC_BLN/4,R2 i set # of long words 
ee: 0 9B 1 $ BSBW RMSGETBLK ; get rlb block and fill in Length 
53 1 00 Hj 1 MOVL R1,R 3 copy address if any 
16 BA Al 1028 POPR #*M<R1,R2,R4> 3; restore registers 
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RMORECLCK RECORD LOCK LIST (RLB) PROCESSING 1 =360- 12 4 00:32:0 AX/VMS Macro Vv04-00 Page | RMO 
you~ 000 GET_RLB AND RESET_RLB -SEP=1 1984 99:3 : 48 URNS. SRCIRMORECLCK MAR: 1 ° G ) v04 
27 50 £9 O3A3 1029 BLBC ERRD ; if we failed then exit | 
Aé 1030 ASSUME RLé 8 BUN EQ RLB$B_BID+1" 
O70E 8F BO A 1031 MOVW PRLBSC BID+<RLBS$C_BLN@6>,- 
0 a AA 1 ¢ ; Bs BID (R3) 3 set block id code 
28 ; dO AC 1 OVL ; save new rlb address 
53 9 8 C1 at 18 : ite ae RLB eb NKR. R3 ; get rlb header address 
69 $3 dO B3 1036 MOVL tReet ; set ptr to next in new rlb 
6 0 00 8 B6 10 MOVL cao R SRO ; put new rlb at front of List 
53 50 00 B9 1038 MOVL RO,R3 : restore new ty address 
038C 1039 30$: ; initialize R 
peec 1309 SETOWNRFA: 3; can be eat ted here by QUERY_LCK 
34 Ads O00 BC 1041 MOVL [Rest _IDENT(RY) ,= 3 
10 A3 baer 1966 RLBS$L-OWNER(R3) ; set owner isi 
OC AS) «651=— DOss«03C1 = =— 104 MOVL RY -RLBSL RFAO(R3) 3 set records rfa in rlb 
06 AS 52 BO O3CS 1044 MOVW R2,R LBSW_ RFA4(R3) : 
03C9 1045 RMSSUC 3; indicate success 
05 OQ3CC Mk RSB 3; and return 
O3CD 104 
O3CD 1048 ; 
O3CD 1049 ; error allocating rlb 
03CD 1050 ; 
O3CD 1051 ERRDME: RMSERR DME > no dynamic memory 
05 O308 1028 RSB 3; return to caller 
0303 105 
0303 1054 
03D3 1055 ;++ 
03D3 1056 ; RESET_RLB 
0303 1057 ; 
0303 1058 ; Indicate the RLB is free, and clean it up. Called from UNLOCK and errors 
0303 1059 ; on LOCK. 
0303 1060 ; 
0303 1061 ; rQ must be preserved by this routine 
bab8 1306 3 r3 points to the RLB 
b3p8 1064 ; Note that RLB$B_TMO is not cleared, since it is only meaningful when 
0303 1065 : _RL BSV_TMO is set in RLBS$B_FLAGS, which is cleared here. 
03D 1906 = 
0303 106 
0303 1068 
0303 1069 RESET_RLB: 
04 A3 >. 03D 1070 CLR RLBSL “AAO CR) ; Clears RLBSW_FLAGS2. 
OC A3 C 0306 1071 CLRQ RLBSL O(R 3 
0B AS 94 B30? 1976 CLRB RLBS$B_FLAGS(R3) : 
05 DC 107 RSB ; return to caller 


| 
ASSUME <RLBSL_RFAO+4> EQ RLBSL_OWNER 


4 


C 
RLB) PROCESSING 16-SEP-1984 00:32:0 AX/VMS Macro V04-00 P 5 
NLOCKALL ~SEP=1984 1:23:45 ERMSSRCIRMORECLCK. MAR; 1 ae i) 


~SBTTL RMSUNLOCK AND RMSUNLOCKALL 


MOORES CK RECORD 
v04-000 RMSUNLO 


Ss Or 
Pr 
= 
or 


VVUVVIVIVT VV VUVVVVV VV VV VV VVV VV VVC CCU"CU"0"00000"0"0 KO 


:++ 
RMSUNLOCK 
RMSUNLOCKALL 


Deletes entries in the record lock list 
RMSUNLOCK_HARD 
Deletes an pag in the record lock list, but maps a REA lock held by 
the caller to RNL so a writer holding a REA lock does not attempt an 
update or delete. 
Calling sequence: 
bsbw rm$unlock 


bsbw rm$unlockall 
bsbw rm$unlock_hard 


Input Parameters: 


ri impure area address 
ri0 ifab (shared ifab) address Z 
r9 irab address *** please note always irab *** 
r8 rab/fab address 
ri 1'st and 2'nd word of record's rfa 
r2 3'rd word of record's rfa oe 
seq f.o. offset (always positive value) 
6 relative f.o. always 0 . 
index f.o. low byte = record id 


rfa<>o0: unlock record 


ee a ee ee ed ed ed od = = = = 8 8 = SS 3 2) 2 8 2 2 2 3 2 8 


0 rm$unlockall entry 
H ri,r2 don't care 
\¢ Output Parameters: 
DD 1 
44 13 r3 is destroyed 
DD 16 r0 internal rms status code 
DD 17 rms$_suc&“*xffff record(s) unlocked 
DD Ht rms$_rnl&*xffff record was not locked 
DD 1 or no record was locked (unlock all call) 
DD 0 rm$unlockall: 
DD 1 the irb$v_unlock_rp irab bookeeping bit is cleared 
DD ¢ rl is zeroed 
DD 
DD 4 
DD 5 ; Side Effects: 
DD § 
DD oo 
DD 8 
DD RMSUNLOCK HARD: : 
FE72 30 DD 0 BSBW SCAN : find record 
50 8039 BF 81 0 1 CMPW #<RMSS_OK_ALK&*XFFFF>,RO; caller locked record? 


— 
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Foon 600 RMSUNLOCK AND RMSUNLOCKALL sets 90:35:96 YAMS SRCIRMORECLCK. MARS 1 9 a) v04: 
8 i ES 11 ¢ BNEQ 10$ : if neq no, return RNL error 
E Ee? 11 BBC #RLBSV_PR,- ; did caller lock record REA? 
18 0B A E9 1134 RLBSB_FLAGS(R3),DEQUE no, continue usual path 
16 10 EC 1135 BSBB EQUE : yes, go unlock the sucker and... 
EE 11 § RMSERR RNL ; return RNL so no update is attempted 
05 cf 13 4 10$: RSB ; return to caller 
F4 1139 DEQUE_QUERY: ; called here from QUERY 
25 6A 3 E1 F4 1140 BBC #IFBSV_NORECLK,(R10),DEQ ; do a deq if record locking 
6 11 4 130] BRB DEQ_RS ; go release RLB 
FA 1103 RMSUNLOCK: : : 
FA 1144 UNLOCK: : ref tag 
FESS 30 FA 1145 BSBW SCAN 3; scan for record 
50 8039 8F B1 O3FD 1146 CMPW #<RMS$_OK_ALK&“XFFFF>,RO; did we find a locked record for stream 
32 12 0402 1147 BNEQ NOTLOCR : branch if no 
0404 1148 
0404 1149 ;++ 
0404 1150; 
0404 1151 ; Perform the $DEQ_S 
0404 1136 3 
0404 1155 ;-- 
0404 1154 
06 £0 0404 1155 DEQUE: BBS #RLBSV_FAKE,- 3; if ‘fake’ RLB then maybe RUSAVE 
04 0B A3 0406 1156 RLB$B_FLAGS(R3),10$ 
33 €0 0409 1157 BBS #1FBSV_NORECLK,=- 3; dont do a deq if no record Locking 
23 6A 0408 1158 (R10) ,BEQ_RS : 
0400 1159 r 
02 E1 040D 1160 10$: BBC #1FBSV_RUP,- 
OA OOA2 CA O40F 1161 IFB$B_JNLFLG2(R10),DEQ ; branch if not in RU 
05 E1 0413 1198 BBC #RLB LV2,- 
24 0B A3 0415 116 RLB$B_FLAGS(R3),RUSAVE ; save lock if not Level 2 
03 €1 0418 1164 BBC #RL PR,- 3; if level 2 save all but 
1F_0B A3 041A 1165 RLB$B_FLAGS(R3),RUSAVE ; PR locks. 
OE 08 Ad 06 €0 0410 1166 DEQ: BBS #RLBST FAKE ,RLB$B FLAGS(R3) ,DEQ RS ; branch if fake RLB 
3 1167 SDEQ_S LKID=RCBSL_LOCK_IB(R3) ; lock Td of lock to unlock 
04 1168 : ignore errors... 
ot 1169 é 
Al 10 0430 1170 DEQ_RS: BSBB RESET_RLB : free the rlb 
bees 1171 RMSSUC 3 Say success 
0S 04 11% RSB 3; and return 
0436 117 5 
0436 1174 NOTLOCK: 3 
7 6 1175 RMSERR RNL 3 say record not locked 
05 04 1128 RSB 3 and exit 
43C 117 
43C 1323 3 
"i : 110) 3; Save locks given up in Recovery Units | 
43¢ 1181 ° 
" : 1 § ASSUME <RLBSC_BLN+1> GT FLBSC_BLN 
3€ 8 43C 1184 RUSAVE: PUSHR #*M<R1,R2,R3,R4,R5> 3; save registers 
FEEE 43— 1185 BSBW =s« FLL SCAN : see if there is already an FLB | 
1B 5 f 441 11 § BLBS RO,T s branch if so 
4 444 11 BSBB ALOCPBLE ; get an FLB | 
3F 5 E 446 1188 BLBC RO,50$ 3 get out on error | 
| 
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RMOR CK RECORD LOCK LIST (RLB) PROCESSING 16-SEP-1984 :0 AX/VMS Macro v04-00 Pa 7 
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61 OOO00'SF OD 449 1189 MOVL a#P1O$GL et oh (R1) 3; set eucegsser to first FLB 
80000090" og 2 D $29 1180 MOVL Ri aePlos GL pRULOCK 3; set new Ae ® tt first FLB 
17. 9 45 1191 MOVB He aL FLB$B_BID(R1) lock id in FLB 
C a SAO 438 1198 MOVL  R10-FLBSL_{FB.PTR(RI) ; set IFAB™ Sddress in FLB 
52. 51 DO O45F 1194 10S: MOVL ; save FLB address 
51 04 A2. DE 462 1198 MOVAL FLBST_RLB_LNK(R2) ,R1 : get RLB pointer 
51 61 00 £08 1199 20$: MOVL (R1),R1 3 get RLB 
a. 3 469 1198 BEQL 30$ : branch if non 
10 Al dS 46B 1199 TSTL RLBSL_OWNER(R1) : is RLB ouet apts 
F6 \¢ rf 1 9 BNEQ 20$ : branch if not 
0D 1 645 ! 4 BRB 40$ 3; go use it otherwise 
¢8 10 047 1 8 30$: BS3B nO, 508 ; get an RLB 
150 €9 0474 1204 BLBC RO,50$ 3 get out on error 
61 4 A2 00 be 58 1205 MOVL FLO$L_RLB_LNK(R2),(R1) 3: set successor to first RLB 
0442 51 00 0478 06 MOVL RI, PLBSL” _RLB_LNK(R2) : set new RLB as first 2LB 
04 Al 04 A3 18 28 O47F 1208 40$: MOVC3 #RLBSC_BLN-4,4(R3),4(R1); copy old RLB 
Sh 1gtp ss 
3€ BA 0488 1211 50S: POPR #*M<R1,R2,R3,R4,R5> 
FF46 30 048A \si¢ BSBW RESET_RLB ; remove lock — IFB RLB List 
03 50 58 048D 121 BLBS RO, 3: return on succ 
FF3A 1 0490 1214 BRwW ERRDME 3; only error pean ibis is DME 
05 0493 1215 60$: RSB 
gist ai 
0494 1318 : ALOCPBLK =- Allocate a block for the RULOCK List 
O49 1920 
494 1381 ALOCPBLK: 
083C 8F BB 0494 1 $$ PUSHR #*M<R2,R3,R4,R5, gt bh 3 save registers 
5B 00000000" 9F DE 0498 33 MOVAL arPlOSGu_ PIO[MPA,R : PIO free List header 
52. 07, «9A = (04A2 «1225 MOVZBL PRLBSC BLN/4, R2 : set # of Long words 
FB58" 30 O04A5 1226 BSBW RM 3 get block 
083C 8F BA O4A8 1 si POPR PoMcR_RS.RG.RS.R11> 3; restore registers 
05 O4AC 1228 RSB 
raat 
O4AD 1931 : DEAPBLK - Deallocate a RULOCK block 
18 
QO4AD 1234 DEAPBLK: 
083C 8 BB O4AD 1235 PUSHR #*M<R2Z,R3,R4,R5,R11> ; 
58 mene oF DF rr ! 8 =~ tt ea hae calianael ; PIO free List header 
8 4BB 1238 MOVL R Re 
oo . 4BE 1239 BSBW RMSRE 3 return space 
083C 8F BA bees 1240 POPR atte RS. R4,R5,R11> 
05 4C5 1241 RSB 
Bs 18 
4C6 1244 Unlock all records for the caller. 
04C6 1245 ; 


Rae ae ts EN Fe LA Ena 
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RMORECL CK RECORD LOCK LIST (RLB) PROCESSING 1g=$EP-1984 00 
V04= RMSUNLOCK AND RMSUNLOCKALL =SEP-1984 
C6 1246 
4C6 1247 RMSUNLOCKALL:: 
4C6 1248 CSB. #IRBSV_UNLOCK_RP, (R9) 
4CA 124 
1 ph O4CA 1980 CLRL RT 
FF2B 630 O4CC 1251 BSBW «UNLOCK 
OC 50 £9 O4Ck 1254 BLBC —sRO, NTLK 
1 ph O42 1293 108: CLRL 
FF23 30 0404 1254 BSBW UNLOCK 
F850 E8 0407 1255 LBS —s- RO, 108 
4DA 1256 RMSSUC 
05 4nd 125 SB 
4DE 1258 
FSS 31 Q4DE 1259 NTLK: BRN NOTLOCK 
04E1 1261 ERRENQ: RMSPBUG FTLS$_ENQDEQFAIL 


Sete 


35:06 Ag Macro V04-00 
71 RMS.SRCIRMORECLCK.MAR; 1 


rp will be unlocked so note that 

it was done 

flag owner scan 

unlock first record 

if we failed then exit 

re-flag owner scan, since DEQ blew R1 
unlock next record 

Loop back if success 

exit with success 


the deq failed 


— 


COowoowoo”v 


Py.) 
* 

F 
50 
oF 
50 
oF 
51 
17 
59 


CoCo IOomM—mMmWwo?o 


oo 


COOOCOCOCCSOSOSOOOOOOSOOOOOSGOOCOOOOOOSOOOOOOoOO 
ACWWMM SD & NOMWO SO P& 0909 09 09 Cd 09 CD 0D G9 00 C0 C9 C0 C9. 00 CD CD CD CDCDCD ‘n 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
WOO OOOO O000000 0009 09 09 090909 SII NISSEN SNIP OAAOAOAOO 
NAMES WN @ OOO NAULS WN 9 ODNAUE WN" OOONOUS Ww 
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4 or Let LIST (RLB) PROCESSING 


"SSEp=19be fe:28:15 


-SBTTL RMSSAVE_FL 
; RMSSAVE_FL = Save the file lock in the RULOCK List 


; Calling sequence: 
; — BSBW 


; Input Parameters: 
. RG = 


; mee Tereneterss 


; Side Effects: 
: None. 


; RO 


RMSSAVE_FL:: 
PUSHL 


10$: MOVL 
20S: POPL 
RSB 


RMSSAVE_FL 


SFSB address 
IFAB address 


Destroyed 


af 108GL RULOCK, (R1) 
RI OSGL 


RULOCK 
aries C_BID FLBSB BID(R1) 
RO, FLBSL_IFB_PTRTR1) 


SFSBSL_LOCK_ID(R4),FLBSL_LOCK_ID(R1) ; save lock 
3; restore R10 


AX/VMS Macro V04-00 
RMS .SRCJRMORECLCK.MAR;1 


Sete Se Fe Ge Se Ge Ge Se 


save R10 

move IFB address ig FLB_SCAN 
see if there is an FLB 

branch if one 

get an FLB 

get out on error 

set successor to first FLB 
set new FLB as first FLB 

set block id in FLB 

set IFAB address in FLB 


' 
— 


RMSRU_UNLOC =SEP-1984 RMS. SRCIRMORECLCK.MAR; 1 
.SBTTL RMSRU_UNLOCK 


so 
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= RECORD LSKe test (RLB) PROCESSING 1 mi teats 1 90:35:96 AX/VMS Macro V04-00 Page A's 


++ 
RMSRU_UNLOCK = Unlocks all locks held for recovery unit 


Calling sequence: 
BSBW RMSRU_UNLOCK 


Input Parameters: | 
None. | 
Ouput pargeeters: 
RO-R5 Destroyed 
Side Effects: 
None. 


Sete Ge Ge Ge Ge Se Ge Ge Ge Ge Sete Ge Ge Se 


RMSRU_UNLOCK: : 
PUSHL 


R11 
MOVAL a#P10$GW_PIOIMPA,R11 
MOVL  a#PIO$GL~RULOCK,R3 


10$: BEQL 60$ branch if none 
MOVL FLBSL_RLB_LNK(R3) ,R4 ; get RLB address 


save impure area address 
point to process I/0 set 
get first FLB 


5B OD 
28 Q0000000'9F ODE 
5 00000000'9F D0 


41 1 
54 04 A3 00 


18 «13 20$: BEQL $ : branch if at end of List 
$DEQ_S LKID=RLBSL_LOCK_ID(R4) ; deque record lock 
64 PUSHC R4) 3 save next RLB address 
51 54 MOVL 1 3: return RLB 
FF68 BSBW PBLK 
54 ef MOVL »+,R4 3; get next RLB 
E BRB ; gO process next RLB 
10 a3 40$:  TSTL $L_LOCK_ID(R3) was a file lock saved? 
OE Q branch if not 


ts) 
deque file lock 


o 

a 
ooo -—-oWwoSo -9 -—-9OWNCSO 
MmoFf —COo°oUo WM —OOoO°o”U 

sad 

=] 

m 

© 

174) 
-@ —-922FuNG w-o7- $s 


Ww 
SOOOCOCCOOCOSCOOOSOSOCOOCOOGSOOCSOGOOCGOOOCOOOOOOSBOOOOOOOOOOOOOOO 


SIN NINA A AAAI ES BEE EE EAN 9 9 9 OO OO OO OO SO OS 
FPWUOPY POVMIMNG NS PS POVMIVINS BSS ONG 0 LO 


ee a a a a a et ts a a tt ts es bd 2 


BERS E SE FWWWWWWIAWIWIIRI RIPPON 2 1 BOO 


NOUS AN 9 OD NAME WIN 9 OD NA UE WIN @ O OD NOU WIN (OO ODNOAOUES WO 0 


D=FLB$L_LOCK_ID(R3) : 
50$: PUSHC ) > Save next FLB address 
51 53 MOVL R1 3; return FLB 
FF48 BSBW PBLK 
$$ SE MOVL )+,R3 : get next FLB address 
BD BRB ; go process it 
00000000 ' 9F 60$: CLRL 1O$GL_RULOCK : clear List header 

5B OBE MOVL )+,R1T ; restore R11 

RSB 

-END 
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RMORECLCK SEP-1984 00:32:06 VAX Vins Macro v04-00 
Symbol table SEP=1984 16:22:15 CRMS.SRCIRMORECLCK.MAR; 1 
$$.PSECT_EP = 00000000 LCKSK_CRMODE = 1 
ARGS = 8 LCK$K“EXMODE 2 5 
SSRMSTEST = A LCK$K~PRMODE = 3 
$ -PBUGCHK s 19 LCK$K-PWMODE = 4 
$SRMS~TBUGCHK = 0 LCKSM~ CONVERT = 0000005. 
7 = 4 LCKSM-NOQUEUE = 00 008 
: 01 LCKSM~SYNCSTS : 00 008 
ALOCPBLK 494 © 01 LCKSM~SYSTEM = 9000001 
DEAPBLK 60004aD R 01 LCKSV~PROTECT = 900008 
DEQ 000041D R 01 LCKSV"RECOVER = 0000000 
DEQUE 0000404 R 1 OBD 000248 R 01 
DEQUE _QUERY 009 3F4 R 01 NOTFOUND 9 0 84 R 01 
DEQ_RS 430 R 1 OTLOCK 436 R 1 
00001 6 R 01 NTLK 000004DE R 01 
_ACMODE = 000000 PIOSA_TRACE teeneene 01 
ENQS~ASTADR : 9000001¢ PIO$GC_RULOCK eeeeeree X01 
ENQS~ASTPRM = 00000 PIOSGW-PIOIMPA eeeeeeee X01 
ENQ$ BLKAST z 900000 4 PRSCA 0000034¢ R 01 
“EFN = 00000004 RABSB_TMO = 0000001F 
ENQS FLAGS = 00000010 RABSL ROP = 00000004 
ENQSLKMODE = 00000008 RABSV-LV2 = 0000000C 
ENQSLKSB = 0000000¢ RABSV-REA = 9000000¢ 
ENQS~NARGS = 90000006 RABSV-RLK = 0000001 
ENQ$~PARID = 0000001 RABSV-RRL = 00000003 
ENQ$~PROT = 0000002¢ RABSV~TMO = 00000019 
ENQS~RESNAM = 90000014 RABSV-WAT = 00000011 
ERR 000003CD R 01 RESET-RLB 00000303 R 01 
ERRENG 000004E1 R 01 RLB$B~BID = 00000008 
ERRS 9000029A R 01 RLB$B BLN = 00000009 
FLB$B_BID = 00000 08 RLBSB~FLAGS = 00000008 
FLBSC~BID = 0000001 RLB$B~TMO = 0000000A 
FLBSC~BLN = 00000014 RLB$C~BID = 0000000E 
FLBSL~1FB_PTR = 0000000¢ RLB$C~BLN = 0000001¢ 
FLBSL_LOCR_ID = 00000010 RLB$L_LKSB = 00000014 
FLBSL-RLB_CNK = 44 seg LBSL_LNK = 00000000 
FLB SCAN 00000 2 R 01 RLBSL~LOCK_ID = 00000018 
F 000002 5 R 01 LBSL-MIS = 00000004 
FTL$_ENQDEQFAIL = FFFFFFF RLBSL OWNER = 00000010 
FTL$~NOCURBDB = FFFFFFFI RLBSL-RFAO = 0000000C 
GET RL 00000383 R 01 RLBSM~ = 90000008 
IFB$B_JNLFLG = 000000A RLBSM-LV2 = 0000002 
IFBSB-JNLFLG2 = 000000A RLBSM~PR = 00000008 
IFB$B~ORGCAS = 0000002 RLBSM-WAIT = 00000001 
I1FBSB-RECVRFLGS = 900 Al RLBSV~CONV : 900004 
IFBSL~SFSB_PTR = 00000078 RLBSV~ = 001 
IFBSM~ONLY~RU = 00000001 RLBSV~FAKE = 000 06 
IFBSM~RU = 00000008 RLBSV-LV2 = 9000005 
IF B$V~NORECLK = 000000 LBSV~PR = 0000000 
IFBSV-R = 0000 RLBSV~PW 2 0 00 
IFBS$V~RU_RECVR = 0000 RLBS$V~TIMER_INPROG = 09 
IFB$V~RU-RLK = 9 RLBSV~ = 99 0 
IRBSB~EFR : 008 RLBSV-WAIT = 000 
IRBSL~ CURBDB 2 RLBSW-FLAGS2 = 0 4 
I IDEN = 4 RLBSW1D ° 6 
I L : 8 RLBSW-RFAG = 006 
I = 000 RLBSW” STATUS = 00000014 
I = 0000002D RMSBUG teeeeeee =X 01 
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Symbol table -SEP-1984 RMS .SRCIRMORECLCK.MAR; 1 
RMSGETBLK eeeeeeee §X 1 
OCK 00000000 RG 1 
RMEMAPERR keeeeeee x 1 
RMSQUERY_HARD 0 8 70 RG 1 
UERY_ QOO0AT RG 1 
RMSQUERY PROC 0000088 RG 1 
RMSRELEASE eeeeeeee 1 
RMSRETBLK eeeneene § 1 
RMSRU_UNLOCK 608 0517 RG 1 
RMSSAVE_FL 00004E8 RG 1 
RMSSETEFN teeeeere 8 6X 1 
RMSSET_LOCK_TMO eeeneeee = § 6X 1 
ACL ee Roe x 1 
RMSSTALLAST eeeeeere =X 8601 
RMSUNLOCK OOOOO3FA RG 01 
LOCKALL 000004C6 RG 01 
MSUNLOCK_HARD Q000003DD RG 01 
DME = Bootes 4 
ENG = boi 8a 4 
RMS$_OK_ALK = 00018039 
RMS$_OK_RLK = 855186 1 
RMS$_OK_RRL = 00018029 
RMS$_OK_RULK = 00018071 
RMS$_OK_ WAT = 0001 36! 
MSS$_RLR = 200182AA 
RMS$_RNL = 000181A0 
S$_TMO = 00018180 
RMSS$_TMR = 0001C16C 
= Bonenoeg 
RRL 00000115 R 01 
RUSAVE 0000043C R 01 
RUSCAN 0000029D R 01 
CAN 00000 3 R 4 
SCANIDX 9444 78 R 1 
SCANLOOP 000025A R 01 
SCANSEQ 00000270 R 01 
SCAN_OWNER 4444 BA R 01 
SE TOONRFA 000005BC R 01 
SFSBSL_LOCK_ID = 4494464 0 
s$_ T = 0000002C 
SS$_SYNCH = 00000689 
SYSSCANTIM eeeeeeee GX 01 
SYSSDEQ eeeneere GX 01 
SYSSENQ eeeeenee xX 01 
SYSSSETEF ateereee GX 1 
TPT$L_LOCK eereeeee XxX 01 
TPTSL_QUERY_LCK eeeeeeer 01 
TPTSL_REC_ aeeeeeee =X 01 
LOC OOOOO3FA R 01 


RMORECLCK 


Psect synopsis -SEP-1984 


PSECT name Allocation PSECT No. Attributes 

» Ss s 00000000 : 9-3 0 ¢ -) NOPIC SR ON S$ 
insti 9999002 f ssoQs} $0 C933 MORE UR EN gs 
SABSS 0000000 8°) 2¢ 2.) NOPIC USR ABS 


CPU Time Elapsed Time 


Page faults 


Initialization 39 90:00: 00.09 00:00:01.35 
Salsa HR Ete 
Syabol table sort a3 8-5 00:00:04.18 
Symbol table output 20 00: 0:00:49 00:00: 00-69 
Psect synopsis output 1 0:00:00.0 88:80:00. 6 
Cress-reference output 9 00: 8798-9 8:00: 08-8 
Assembler run totals 80 00:00:22.7 00:01:19.8 


The working set Limit was 1650 pages. 


86780 bytes (170 pages) of virtual memory were used to buffer the intermediate code. 


erent ewnr en ene ec ee ene mm meee ea + 


Macro Library name 


$255SDUA 8: are oad 4 * “Ty 1 17 
$255SDUA SYS.0B MLB; 1 1 
$255$DUA28 ESYSLIBISTARLET. MLB; 2 13 
verace (all libraries) 31 


1493 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
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AX/VMS Macro V04-00 
RMS.SRCIJRMORECLCK.MAR;1 


LCL oes NOEXE — oo aged NOVEC BYTE 
GBL NOSHR EXE RD NOWRT 


LCL NOSHR 


There were 70 pages of symbol table space ar tecete to hold 1337 non-local and 91 Local symbols. 
7 source Lines were read in Pass 1, produc ing. object records in Pass 2. 
36 pages of virtual memory were used to define 35 macros. 


EXE 


MACRO/LIS=LIS$:RMORECLCK/OBJ=OBJ$:RMORECLCK MSRC$:RMORECLCK/UPDATE=(ENH$:RMORECLCK) +EXECMLS/LIB+LIB$:RMS/LIB 


NOVEC BYTE 
WRT NOVEC BYTE 


Poe i) 


PR tie a CORPORATION 


GI 
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